home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 16 / CU Amiga Magazine's Super CD-ROM 16 (1997-10-16)(EMAP Images)(GB)[!][issue 1997-11].iso / CUCD / Graphics / Ghostscript / source / gxpcmap.c < prev    next >
C/C++ Source or Header  |  1997-02-20  |  18KB  |  583 lines
  1. /* Copyright (C) 1993, 1995, 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* gxpcmap.c */
  20. /* Pattern color mapping for Ghostscript library */
  21. #include "math_.h"
  22. #include "memory_.h"
  23. #include "gx.h"
  24. #include "gserrors.h"
  25. #include "gsstruct.h"
  26. #include "gsutil.h"        /* for gs_next_ids */
  27. #include "gxfixed.h"
  28. #include "gxmatrix.h"
  29. #include "gxcspace.h"        /* for gscolor2.h */
  30. #include "gxcolor2.h"
  31. #include "gxdcolor.h"
  32. #include "gxdevice.h"
  33. #include "gxdevmem.h"
  34. #include "gxpcolor.h"
  35. #include "gzstate.h"
  36. #include "gzpath.h"        /* for tweaking sharing flags */
  37. #include "gzcpath.h"        /* ditto */
  38.  
  39. /* Define the default size of the Pattern cache. */
  40. #define max_cached_patterns_LARGE 50
  41. #define max_pattern_bits_LARGE 100000
  42. #define max_cached_patterns_SMALL 5
  43. #define max_pattern_bits_SMALL 1000
  44. uint
  45. gx_pat_cache_default_tiles(void)
  46. {
  47. #if arch_small_memory
  48.     return max_cached_patterns_SMALL;
  49. #else
  50.     return (gs_if_debug_c('.') ? max_cached_patterns_SMALL :
  51.         max_cached_patterns_LARGE);
  52. #endif
  53. }
  54. ulong
  55. gx_pat_cache_default_bits(void)
  56. {
  57. #if arch_small_memory
  58.     return max_pattern_bits_SMALL;
  59. #else
  60.     return (gs_if_debug_c('.') ? max_pattern_bits_SMALL :
  61.         max_pattern_bits_LARGE);
  62. #endif
  63. }
  64.  
  65. /* Define the structures for Pattern rendering and caching. */
  66. private_st_color_tile();
  67. private_st_color_tile_element();
  68. private_st_pattern_cache();
  69. private_st_device_pattern_accum();
  70.  
  71. /* ------ Pattern rendering ------ */
  72.  
  73. /* Device procedures */
  74. private dev_proc_open_device(pattern_accum_open);
  75. private dev_proc_close_device(pattern_accum_close);
  76. private dev_proc_fill_rectangle(pattern_accum_fill_rectangle);
  77. private dev_proc_copy_mono(pattern_accum_copy_mono);
  78. private dev_proc_copy_color(pattern_accum_copy_color);
  79.  
  80. /* The device descriptor */
  81. private const gx_device_pattern_accum gs_pattern_accum_device =
  82. {    std_device_std_body_open(gx_device_pattern_accum, 0,
  83.       "pattern accumulator",
  84.       0, 0, 72, 72),
  85.      {    pattern_accum_open,
  86.         NULL,
  87.         NULL,
  88.         NULL,
  89.         pattern_accum_close,
  90.         NULL,
  91.         NULL,
  92.         pattern_accum_fill_rectangle,
  93.         NULL,
  94.         pattern_accum_copy_mono,
  95.         pattern_accum_copy_color,
  96.         NULL,
  97.         NULL,
  98.         NULL,
  99.         NULL,
  100.         NULL,
  101.         NULL,
  102.         NULL,
  103.         NULL,
  104.         NULL,
  105.         NULL,
  106.         NULL,
  107.         NULL,
  108.         NULL,
  109.         gx_default_fill_path,
  110.         gx_default_stroke_path,
  111.         NULL,
  112.         gx_default_fill_trapezoid,
  113.         gx_default_fill_parallelogram,
  114.         gx_default_fill_triangle,
  115.         gx_default_draw_thin_line,
  116.         gx_default_begin_image,
  117.         gx_default_image_data,
  118.         gx_default_end_image,
  119.         NULL,
  120.         NULL,
  121.         gx_get_largest_clipping_box
  122.      },
  123.     0,                /* target */
  124.     0, 0, 0, 0            /* bitmap_memory, bits, mask, instance */
  125. };
  126. #define padev ((gx_device_pattern_accum *)dev)
  127.  
  128. /* Allocate a pattern accumulator. */
  129. gx_device_pattern_accum *
  130. gx_pattern_accum_alloc(gs_memory_t *mem, client_name_t cname)
  131. {    gx_device_pattern_accum *adev =
  132.       gs_alloc_struct(mem, gx_device_pattern_accum,
  133.               &st_device_pattern_accum, cname);
  134.     if ( adev == 0 )
  135.       return 0;
  136.     *adev = gs_pattern_accum_device;
  137.     adev->memory = mem;
  138.     gx_device_forward_fill_in_procs((gx_device_forward *)adev);    /* (should only do once) */
  139.     return adev;
  140. }
  141.  
  142. /* Initialize a pattern accumulator. */
  143. /* Client must already have set instance and bitmap_memory. */
  144. private int
  145. pattern_accum_open(gx_device *dev)
  146. {    const gs_pattern_instance *pinst = padev->instance;
  147.     gs_memory_t *mem = padev->bitmap_memory;
  148.     gx_device_memory *mask =
  149.       gs_alloc_struct(mem, gx_device_memory, &st_device_memory,
  150.               "pattern_accum_open(mask)");
  151.     gx_device_memory *bits = 0;
  152.     gx_device *target = gs_currentdevice(pinst->saved);
  153.     int width = pinst->size.x;
  154.     int height = pinst->size.y;
  155.     int code;
  156.     if ( mask == 0 )
  157.       return_error(gs_error_VMerror);
  158. #define pdset(dev)\
  159.   (dev)->width = width, (dev)->height = height,\
  160.   (dev)->x_pixels_per_inch = target->x_pixels_per_inch,\
  161.   (dev)->y_pixels_per_inch = target->y_pixels_per_inch
  162.     pdset(padev);
  163.     padev->color_info = target->color_info;
  164.     gs_make_mem_mono_device(mask, mem, 0);
  165.     pdset(mask);
  166.     mask->bitmap_memory = mem;
  167.     mask->base = 0;
  168.     code = (*dev_proc(mask, open_device))((gx_device *)mask);
  169.     if ( code >= 0 )
  170.       {    memset(mask->base, 0, mask->raster * mask->height);
  171.         switch ( pinst->template.PaintType )
  172.           {
  173.           case 2:                /* uncolored */
  174.             padev->target = target;
  175.             break;
  176.           case 1:                /* colored */
  177.             bits = gs_alloc_struct(mem, gx_device_memory,
  178.                            &st_device_memory,
  179.                            "pattern_accum_open(bits)");
  180.             if ( bits == 0 )
  181.               return_error(gs_error_VMerror);
  182.             padev->target = (gx_device *)bits;
  183.             gs_make_mem_device(bits, gdev_mem_device_for_bits(target->color_info.depth), mem, -1, target);
  184.             pdset(bits);
  185. #undef pdset
  186.             bits->color_info = target->color_info;
  187.             bits->bitmap_memory = mem;
  188.             code = (*dev_proc(bits, open_device))((gx_device *)bits);
  189.           }
  190.     }
  191.     if ( code < 0 )
  192.       {    if ( bits != 0 )
  193.           gs_free_object(mem, bits, "pattern_accum_open(bits)");
  194.         (*dev_proc(mask, close_device))((gx_device *)mask);
  195.         gs_free_object(mem, mask, "pattern_accum_open(mask)");
  196.         return code;
  197.       }
  198.     padev->mask = mask;
  199.     padev->bits = bits;
  200.     return code;
  201. }
  202.  
  203. /* Close an accumulator and free the bits. */
  204. private int
  205. pattern_accum_close(gx_device *dev)
  206. {    gs_memory_t *mem = padev->bitmap_memory;
  207.     if ( padev->bits != 0 )
  208.       {    (*dev_proc(padev->bits, close_device))((gx_device *)padev->bits);
  209.         gs_free_object(mem, padev->bits, "pattern_accum_close(bits)");
  210.         padev->bits = 0;
  211.       }
  212.     (*dev_proc(padev->mask, close_device))((gx_device *)padev->mask);
  213.     gs_free_object(mem, padev->mask, "pattern_accum_close(mask)");
  214.     padev->mask = 0;
  215.     return 0;
  216. }
  217.  
  218. /* Fill a rectangle */
  219. private int
  220. pattern_accum_fill_rectangle(gx_device *dev, int x, int y, int w, int h,
  221.   gx_color_index color)
  222. {    if ( padev->bits )
  223.         (*dev_proc(padev->target, fill_rectangle))(padev->target,
  224.             x, y, w, h, color);
  225.     return (*dev_proc(padev->mask, fill_rectangle))((gx_device *)padev->mask,
  226.         x, y, w, h, (gx_color_index)1);
  227. }
  228.  
  229. /* Copy a monochrome bitmap. */
  230. private int
  231. pattern_accum_copy_mono(gx_device *dev, const byte *data, int data_x,
  232.   int raster, gx_bitmap_id id, int x, int y, int w, int h,
  233.   gx_color_index color0, gx_color_index color1)
  234. {    if ( padev->bits )
  235.         (*dev_proc(padev->target, copy_mono))(padev->target,
  236.             data, data_x, raster, id, x, y, w, h, color0, color1);
  237.     if ( color0 != gx_no_color_index )
  238.         color0 = 1;
  239.     if ( color1 != gx_no_color_index )
  240.         color1 = 1;
  241.     if ( color0 == 1 && color1 == 1 )
  242.         return (*dev_proc(padev->mask, fill_rectangle))((gx_device *)padev->mask,
  243.             x, y, w, h, (gx_color_index)1);
  244.     else
  245.         return (*dev_proc(padev->mask, copy_mono))((gx_device *)padev->mask,
  246.             data, data_x, raster, id, x, y, w, h, color0, color1);
  247. }
  248.  
  249. /* Copy a color bitmap. */
  250. private int
  251. pattern_accum_copy_color(gx_device *dev, const byte *data, int data_x,
  252.   int raster, gx_bitmap_id id, int x, int y, int w, int h)
  253. {    if ( padev->bits )
  254.         (*dev_proc(padev->target, copy_color))(padev->target,
  255.             data, data_x, raster, id, x, y, w, h);
  256.     return (*dev_proc(padev->mask, fill_rectangle))((gx_device *)padev->mask,
  257.         x, y, w, h, (gx_color_index)1);
  258. }
  259.  
  260. #undef padev
  261.  
  262. /* ------ Color space implementation ------ */
  263.  
  264. /* Free all entries in a pattern cache. */
  265. private bool
  266. pattern_cache_choose_all(gx_color_tile *ctile, void *proc_data)
  267. {    return true;
  268. }
  269. private void
  270. pattern_cache_free_all(gx_pattern_cache *pcache)
  271. {    gx_pattern_cache_winnow(pcache, pattern_cache_choose_all, NULL);
  272. }
  273.  
  274. /* Allocate a Pattern cache. */
  275. gx_pattern_cache *
  276. gx_pattern_alloc_cache(gs_memory_t *mem, uint num_tiles, ulong max_bits)
  277. {    gx_pattern_cache *pcache =
  278.       gs_alloc_struct(mem, gx_pattern_cache, &st_pattern_cache,
  279.               "pattern_cache_alloc(struct)");
  280.     gx_color_tile *tiles =
  281.       gs_alloc_struct_array(mem, num_tiles, gx_color_tile,
  282.                 &st_color_tile_element,
  283.                 "pattern_cache_alloc(tiles)");
  284.     uint i;
  285.  
  286.     if ( pcache == 0 || tiles == 0 )
  287.       { gs_free_object(mem, tiles, "pattern_cache_alloc(tiles)");
  288.         gs_free_object(mem, pcache, "pattern_cache_alloc(struct)");
  289.         return 0;
  290.       }
  291.     pcache->memory = mem;
  292.     pcache->tiles = tiles;
  293.     pcache->num_tiles = num_tiles;
  294.     pcache->tiles_used = 0;
  295.     pcache->next = 0;
  296.     pcache->bits_used = 0;
  297.     pcache->max_bits = max_bits;
  298.     pcache->free_all = pattern_cache_free_all;
  299.     for ( i = 0; i < num_tiles; tiles++, i++ )
  300.       {    tiles->id = gx_no_bitmap_id;
  301.         /* Clear the pointers to pacify the GC. */
  302.         uid_set_invalid(&tiles->uid);
  303.         tiles->tbits.data = 0;
  304.         tiles->tmask.data = 0;
  305.         tiles->index = i;
  306.       }
  307.     return pcache;
  308. }
  309. /* Ensure that an imager has a Pattern cache. */
  310. private int
  311. ensure_pattern_cache(gs_imager_state *pis)
  312. {    if ( pis->pattern_cache == 0 )
  313.       { gx_pattern_cache *pcache =
  314.           gx_pattern_alloc_cache(pis->memory,
  315.                      gx_pat_cache_default_tiles(),
  316.                      gx_pat_cache_default_bits());
  317.         if ( pcache == 0 )
  318.           return_error(gs_error_VMerror);
  319.         pis->pattern_cache = pcache;
  320.       }
  321.     return 0;
  322. }
  323.  
  324. /* Get and set the Pattern cache in a gstate. */
  325. gx_pattern_cache *
  326. gstate_pattern_cache(gs_state *pgs)
  327. {    return pgs->pattern_cache;
  328. }
  329. void
  330. gstate_set_pattern_cache(gs_state *pgs, gx_pattern_cache *pcache)
  331. {    pgs->pattern_cache = pcache;
  332. }
  333.  
  334. /* Free a Pattern cache entry. */
  335. private void
  336. gx_pattern_cache_free_entry(gx_pattern_cache *pcache, gx_color_tile *ctile)
  337. {    gx_device_memory mdev;
  338.     if ( ctile->id != gx_no_bitmap_id )
  339.       { if ( ctile->tmask.data != 0 )
  340.           { mdev.width = ctile->tmask.size.x;
  341.         mdev.height = ctile->tmask.size.y;
  342.         mdev.color_info.depth = 1;
  343.         pcache->bits_used -= gdev_mem_bitmap_size(&mdev);
  344.         gs_free_object(pcache->memory, ctile->tmask.data,
  345.                    "free_pattern_cache_entry(mask data)");
  346.         ctile->tmask.data = 0;    /* for GC */
  347.           }
  348.         if ( ctile->tbits.data != 0 )
  349.           { mdev.width = ctile->tbits.size.x;
  350.         mdev.height = ctile->tbits.size.y;
  351.         mdev.color_info.depth = ctile->depth;
  352.         pcache->bits_used -= gdev_mem_bitmap_size(&mdev);
  353.         gs_free_object(pcache->memory, ctile->tbits.data,
  354.                    "free_pattern_cache_entry(bits data)");
  355.         ctile->tbits.data = 0;    /* for GC */
  356.           }
  357.         ctile->id = gx_no_bitmap_id;
  358.         pcache->tiles_used--;
  359.       }
  360. }
  361.  
  362. /* Add a Pattern cache entry.  This is exported for the interpreter. */
  363. /* Note that this does not free any of the data in the accumulator */
  364. /* device, but it may zero out the bitmap_memory pointers to prevent */
  365. /* the accumulated bitmaps from being freed when the device is closed. */
  366. private void make_bitmap(P3(gx_strip_bitmap *, const gx_device_memory *, gx_bitmap_id));
  367. int
  368. gx_pattern_cache_add_entry(gs_imager_state *pis,
  369.   gx_device_pattern_accum *padev, gx_color_tile **pctile)
  370. {    gx_device_memory *mbits = padev->bits;
  371.     gx_device_memory *mmask = padev->mask;
  372.     const gs_pattern_instance *pinst = padev->instance;
  373.     gx_pattern_cache *pcache;
  374.     ulong used = 0;
  375.     gx_bitmap_id id = pinst->id;
  376.     gx_color_tile *ctile;
  377.     int code = ensure_pattern_cache(pis);
  378.     if ( code < 0 )
  379.       return code;
  380.     pcache = pis->pattern_cache;
  381.     /*
  382.      * Check whether the pattern completely fills its box.
  383.      * If so, we can avoid the expensive masking operations
  384.      * when using the pattern.
  385.      */
  386.     {    int y;
  387.         for ( y = 0; y < mmask->height; y++ )
  388.           { const byte *row = scan_line_base(mmask, y);
  389.             int w;
  390.             for ( w = mmask->width; w > 8; w -= 8 )
  391.               if ( *row++ != 0xff )
  392.             goto keep;
  393.             if ( (*row | (0xff >> w)) != 0xff )
  394.               goto keep;
  395.           }
  396.         /* We don't need a mask. */
  397.         mmask = 0;
  398. keep:        ;
  399.     }
  400.     if ( mbits != 0 )
  401.       used += gdev_mem_bitmap_size(mbits);
  402.     if ( mmask != 0 )
  403.       used += gdev_mem_bitmap_size(mmask);
  404.     ctile = &pcache->tiles[id % pcache->num_tiles];
  405.     gx_pattern_cache_free_entry(pcache, ctile);
  406.     while ( pcache->bits_used + used > pcache->max_bits &&
  407.         pcache->bits_used != 0     /* allow 1 oversized entry (?) */
  408.           )
  409.       { pcache->next = (pcache->next + 1) % pcache->num_tiles;
  410.         gx_pattern_cache_free_entry(pcache, &pcache->tiles[pcache->next]);
  411.       }
  412.     ctile->id = id;
  413.     ctile->depth = padev->color_info.depth;
  414.     ctile->uid = pinst->template.uid;
  415.     ctile->tiling_type = pinst->template.TilingType;
  416.     ctile->step_matrix = pinst->step_matrix;
  417.     ctile->bbox = pinst->bbox;
  418.     ctile->is_simple = pinst->is_simple;
  419.     if ( mbits != 0 )
  420.       { make_bitmap(&ctile->tbits, mbits, gs_next_ids(1));
  421.         mbits->bitmap_memory = 0;    /* don't free the bits */
  422.       }
  423.     else
  424.       ctile->tbits.data = 0;
  425.     if ( mmask != 0 )
  426.       { make_bitmap(&ctile->tmask, mmask, id);
  427.         mmask->bitmap_memory = 0;    /* don't free the bits */
  428.       }
  429.     else
  430.       ctile->tmask.data = 0;
  431.     pcache->bits_used += used;
  432.     pcache->tiles_used++;
  433.     *pctile = ctile;
  434.     return 0;
  435. }
  436. private void
  437. make_bitmap(register gx_strip_bitmap *pbm, const gx_device_memory *mdev,
  438.   gx_bitmap_id id)
  439. {    pbm->data = mdev->base;
  440.     pbm->raster = mdev->raster;
  441.     pbm->rep_width = pbm->size.x = mdev->width;
  442.     pbm->rep_height = pbm->size.y = mdev->height;
  443.     pbm->id = id;
  444.     pbm->rep_shift = pbm->shift = 0;
  445. }
  446.  
  447. /* Purge selected entries from the pattern cache. */
  448. void
  449. gx_pattern_cache_winnow(gx_pattern_cache *pcache,
  450.   bool (*proc)(P2(gx_color_tile *ctile, void *proc_data)), void *proc_data)
  451. {    uint i;
  452.  
  453.     if ( pcache == 0 )    /* no cache created yet */
  454.       return;
  455.     for ( i = 0; i < pcache->num_tiles; ++i )
  456.       { gx_color_tile *ctile = &pcache->tiles[i];
  457.         if ( ctile->id != gx_no_bitmap_id && (*proc)(ctile, proc_data) )
  458.           gx_pattern_cache_free_entry(pcache, ctile);
  459.       }
  460. }
  461.  
  462. /* Reload a (non-null) Pattern color into the cache. */
  463. /* *pdc is already set, except for colors.pattern.p_tile and mask.m_tile. */
  464. int
  465. gx_pattern_load(gx_device_color *pdc, const gs_imager_state *pis,
  466.   gx_device *dev, gs_color_select_t select)
  467. {    gx_device_pattern_accum adev;
  468.     gs_pattern_instance *pinst = pdc->mask.ccolor.pattern;
  469.     gs_state *saved;
  470.     gx_color_tile *ctile;
  471.     gs_memory_t *mem = pis->memory;
  472.     int code;
  473.  
  474.     if ( gx_pattern_cache_lookup(pdc, pis, dev, select) )
  475.       return 0;
  476.     /* We REALLY don't like the following cast.... */
  477.     code = ensure_pattern_cache((gs_imager_state *)pis);
  478.     if ( code < 0 )
  479.       return code;
  480.     adev = gs_pattern_accum_device;
  481.     gx_device_forward_fill_in_procs((gx_device_forward *)&adev);    /* (should only do once) */
  482.     adev.instance = pinst;
  483.     adev.bitmap_memory = mem;
  484.     code = (*dev_proc(&adev, open_device))((gx_device *)&adev);
  485.     if ( code < 0 )
  486.       return code;
  487.     /*
  488.      * We want the copying operation to mark paths in the copy as shared,
  489.      * but we don't want the share marks to persist in the original
  490.      * after we free the copy, because this prevents the paths from
  491.      * being freed (except by restore or GC).  This requires a bit of
  492.      * care....
  493.      */
  494.     { gs_state *orig = pinst->saved;
  495.       gx_path *ppath = orig->path;
  496.       gx_clip_path *pcpath = orig->clip_path;
  497.       bool path_shared = ppath->shares_segments;
  498.       bool cpath_shared = pcpath->path.shares_segments;
  499.       bool list_shared = pcpath->shares_list;
  500.  
  501.       /*
  502.        * The call of gs_gstate will set all the sharing flags, but that
  503.        * is OK, because orig points to an orphan gstate (no stack).
  504.        */
  505.       saved = gs_gstate(pinst->saved);
  506.       if ( saved == 0 )
  507.         return_error(gs_error_VMerror);
  508.       if ( saved->pattern_cache == 0 )
  509.         saved->pattern_cache = pis->pattern_cache;
  510.       gx_set_device_only(saved, (gx_device *)&adev);
  511.       code = (*pinst->template.PaintProc)(&pdc->mask.ccolor, saved);
  512.       gs_state_free(saved);
  513.       ppath->shares_segments = path_shared;
  514.       pcpath->path.shares_segments = cpath_shared;
  515.       pcpath->shares_list = list_shared;
  516.     }
  517.     if ( code < 0 )
  518.       { (*dev_proc(&adev, close_device))((gx_device *)&adev);
  519.         return code;
  520.       }
  521.     /* We REALLY don't like the following cast.... */
  522.     code = gx_pattern_cache_add_entry((gs_imager_state *)pis, &adev,
  523.                       &ctile);
  524.     if ( code >= 0 )
  525.       { if ( !gx_pattern_cache_lookup(pdc, pis, dev, select) )
  526.           { lprintf("Pattern cache lookup failed after insertion!\n");
  527.             code = gs_note_error(gs_error_Fatal);
  528.           }
  529.       }
  530.     /* Free the bookkeeping structures, except for the bits and mask */
  531.     /* iff they are still needed. */
  532.     (*dev_proc(&adev, close_device))((gx_device *)&adev);
  533. #ifdef DEBUG
  534.     if ( gs_debug_c('B') )
  535.       { debug_dump_bitmap(adev.mask->base, adev.mask->raster,
  536.                   adev.mask->height, "[B]Pattern mask");
  537.         if ( adev.bits )
  538.           debug_dump_bitmap(((gx_device_memory *)adev.target)->base,
  539.                 ((gx_device_memory *)adev.target)->raster,
  540.                 adev.target->height, "[B]Pattern bits");
  541.       }
  542. #endif
  543.     return code;
  544. }
  545.  
  546. /* Remap a Pattern color. */
  547. cs_proc_remap_color(gx_remap_Pattern);    /* check the prototype */
  548. int
  549. gx_remap_Pattern(const gs_client_color *pc, const gs_color_space *pcs,
  550.   gx_device_color *pdc, const gs_imager_state *pis, gx_device *dev,
  551.   gs_color_select_t select)
  552. {    gs_pattern_instance *pinst = pc->pattern;
  553.     int code;
  554.  
  555.     pdc->mask.ccolor = *pc;
  556.     if ( pinst == 0 )
  557.     {    /* Null pattern */
  558.         color_set_null_pattern(pdc);
  559.         return 0;
  560.     }
  561.     if ( pinst->template.PaintType == 2 )    /* uncolored */
  562.     {    code = (*pcs->params.pattern.base_space.type->remap_color)
  563.           (pc, (const gs_color_space *)&pcs->params.pattern.base_space, pdc, pis, dev, select);
  564.         if ( code < 0 )
  565.           return code;
  566. #define replace_dc_type(t, pt)\
  567.   if ( pdc->type == t ) pdc->type = &pt
  568.         replace_dc_type(gx_dc_type_pure, gx_dc_pure_masked);
  569.         else
  570.           replace_dc_type(gx_dc_type_ht_binary, gx_dc_binary_masked);
  571.         else
  572.           replace_dc_type(gx_dc_type_ht_colored, gx_dc_colored_masked);
  573.         else
  574.           return_error(gs_error_unregistered);
  575. #undef replace_dc_type
  576.     }
  577.     else
  578.         color_set_null_pattern(pdc);
  579.     pdc->mask.id = pinst->id;
  580.     pdc->mask.m_tile = 0;
  581.     return gx_pattern_load(pdc, pis, dev, select);
  582. }
  583.